<!--#include file="conn.asp"-->

<%
dim comeurl
comeurl=Request.ServerVariables("HTTP_REFERER")
if request.querystring("action")<>"" then
       call myhide()
end if
if request.querystring("styleid")<>0 then
       call mystyle()
end if
response.redirect comeurl
Call conn_Nothing()

sub myhide() 
    dim action,lgtype
    action=request.querystring("action")
    lgtype=cint(session("tslt_lgtype"))
    select case action
        case "hideme"
             if lgtype=1 then
                  conn.execute("update ym_online set hidename=true where onlinename='"&session("tslt_username")&"'")
                  session("tslt_lgtype")=2
             else
                  conn.execute("update ym_online set hidename=false where onlinename='"&session("tslt_username")&"'")
                  session("tslt_lgtype")=1
          end if
    end select
end sub

sub mystyle()
    dim styleid
    styleid=request.querystring("styleid")
       conn.execute("update style set defaultstyle=true where id=")&styleid
       conn.execute("update style set defaultstyle=false where id<>")&styleid
end sub

%>